home *** CD-ROM | disk | FTP | other *** search
/ Ahoy: Best of 1985 / Ahoy_Best_of_1985_1986_Double_L.d64 / music tutor j'85 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  8KB  |  215 lines
  1. 5 print"[147] please wait":v=53248
  2. 10 dima(21),b(21):pokev+32,15:pokev+33,11
  3. 20 kb$="gabcdefgabcdefgabcdef"
  4. 30 forx=12288to12928step64:fory=0to62:reada:pokex+y,a:nexty,x
  5. 40 forx=1to21:reada,b:a(x)=a:b(x)=b:next
  6. 50 poke2040,192:poke2041,193:poke2045,197:poke2047,199
  7. 60 pokev+37,2:pokev+38,1:pokev+39,0:pokev+40,0:pokev+44,1:pokev+46,1
  8. 70 pokev,50:pokev+1,138:pokev+2,58:pokev+3,190
  9. 80 pokev+10,177:pokev+11,98:pokev+14,172:pokev+15,74
  10. 90 pokev,50:pokev+1,138:pokev+2,58:pokev+3,190:pokev+23,128
  11. 95 goto900
  12. 100 forx=1to2:print"[154][145][180][165][146]  [221] [146]  [146]  [221] [146]  [146]  [146]  [221][153] [146]  [146]  [221] [146]  [146]  [146]  ";
  13. 105 print"[221] [146]  [146]  [221] ":next
  14. 110 forx=1to2:print"[145][154][217] [221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][153][160][221][160][221][160][221] [221][160][221][160][221][160][221][160][221][160][221][160][221][160]":next
  15. 115 print:print:print""
  16. 120 print"[153]   [176]";:forx=1to30:print"[192]";:next:print"[178]";:print"[174]"
  17. 125 fory=1to4:print"   [171]";:forx=1to30:print"[192]";:next:print"[219]";:print"[179]":next
  18. 130 print"   [221]";:forx=1to15:print" ";:next
  19. 135 print"[195][195][195]";:forx=1to12:print" ";:next:print"[221]";:print"[221]":print"[154]";
  20. 140 fory=1to4:print"   [171]";:forx=1to30:print"[192]";:next:print"[219]";:print"[179]":next
  21. 145 print"   [173]";:forx=1to30:print"[192]";:next:print"[177]";:print"[189]"
  22. 150 ifg=1then1000
  23. 160 poke2042,194:poke2043,194:poke2044,196:poke2046,198
  24. 170 pokev+4,84:pokev+5,143:pokev+6,84:pokev+7,191:pokev+12,165:pokev+13,108
  25. 175 pokev+28,64
  26. 180 pokev+41,0:pokev+42,0:pokev+43,7:pokev+45,7
  27. 190 gosub4200:pokev+29,79:pokev+23,207:pokev+21,151
  28. 200 a=int(rnd(1)*l1)+l2:ifa=1thenni=1.5:goto210
  29. 205 ni=a
  30. 210 ifg>=3thenprint"[144]"tab(ni*2-3)"^"
  31. 220 ifg<=3thenpokev+9,222-4*a
  32. 230 pokev+8,169:pokev+21,159
  33. 240 a$=mid$(kb$,a,1)
  34. 250 getn$:ifg=3andn$=""goto250
  35. 260 ifn$="[133]"orn$="[134]"orn$="[135]"thengosub4200
  36. 265 ifn$="[136]"thenpokev+21,0:goto900
  37. 270 ifn$="h"thengosub4000:goto250
  38. 275 ong-1goto500,280,700
  39. 280 ifasc(n$)<65orasc(n$)>72then250
  40. 290 ifn$=a$thengosub4500:goto400
  41. 300 gosub4600:goto250
  42. 400 print""tab(ni*2-3)" "
  43. 410 pokev+21,143:goto200
  44. 500 ifnp=50thennp=19:print"[144]"tab(np)"^":pn=np
  45. 510 gosub3000:iffr<>16then600
  46. 520 ifjv<>4andjv<>8then250
  47. 530 ifjv=8thennp=np+2:ifnp=2thennp=1
  48. 540 ifnp=41thennp=39:goto250
  49. 550 ifjv=4thennp=np-2:ifnp=-1thennp=0
  50. 560 ifnp=-2thennp=0:goto250
  51. 570 print""tab(pn)" "
  52. 580 print"[144]"tab(np)"^":pn=np
  53. 590 goto250
  54. 600 n=int(np/2+2):ifnp=0thenn=1
  55. 620 ifn=athengosub4500:goto410
  56. 630 gosub4600:goto250
  57. 700 ifnp=50thenpokev+9,178:np=11
  58. 710 gosub3000:iffr<>16then770
  59. 720 ifjv<>1andjv<>2then250
  60. 730 ifjv=1thennp=np+1:ifnp=22thennp=21:goto250
  61. 740 ifjv=2thennp=np-1:ifnp=0thennp=1:goto250
  62. 750 pokev+9,222-4*np:goto710
  63. 770 ifnp=athengosub4500:goto400
  64. 780 gosub4600:goto250
  65. 900 print"[147][159]             music tutor"
  66. 910 print"     1  note primer"
  67. 915 print"     2  keyboard search"
  68. 920 print"     3  name the note"
  69. 925 print"     4  pin the note on the staff"
  70. 930 np=50:l1=0
  71. 935 print"             press choice"
  72. 940 geta$:ifa$=""then940
  73. 945 g=val(a$)
  74. 950 ifg<1org>4then940
  75. 955 onggoto960,965,970,975
  76. 960 print"[147]              note primer":print:print:pokev+21,128:goto100
  77. 965 print"[147]            keyboard search":print:print:pokev+21,128:goto100
  78. 970 print"[147]             name the note":print:print:pokev+21,128:goto100
  79. 975 print"[147]       pin the note on the staff":print:print:pokev+21,128:goto100
  80. 1000 rem note primer
  81. 1010 poke2042,195:poke2043,200:poke2044,196:poke2046,202
  82. 1020 pokev+23,131:pokev+29,3:pokev+28,0
  83. 1030 pokev+4,170:pokev+5,200:pokev+6,186:pokev+7,180
  84. 1040 pokev+8,170:pokev+9,219:pokev+12,227:pokev+13,139
  85. 1050 pokev+41,0:pokev+42,0:pokev+43,7:pokev+45,0
  86. 1055 gosub4250
  87. 1060 print"[158]   music is written on a set of lines"
  88. 1065 print"      and spaces known as a staff[146]."
  89. 1070 gosub4300:print"       the basic staffs are the"
  90. 1075 print"    [153]treble[146] clef[146],[158]";
  91. 1080 forx=1to3:pokev+21,129:fory=1to500:next:pokev+21,128:fory=1to100:nexty,x
  92. 1085 pokev+21,129:forx=1to200:next:print" and the [154]bass[146] clef[146].
  93. 1090 [129]x[178]1[164]3:[151]v[170]21,131:[129]y[178]1[164]500:[130]:[151]v[170]21,129:[129]y[178]1[164]100:[130]y,x
  94. 1095 [151]v[170]21,131:[141]4300
  95. 1100 [153][166]7)"together they are known as"
  96. 1103 [153][163]11)"the printgrandwait contstaffwait."
  97. 1105 [129]x[178]1[164]2:[151]v[170]21,128:[129]y[178]1[164]100:[130]:[151]v[170]21,131:[129]y[178]1[164]500:[130]y,x
  98. 1110 [141]4300:[153]" each line and space on the grand staff"
  99. 1115 [153]"     represents a key on the piano"
  100. 1120 [151]214,5:[153]:[153]"^";:[151]v[170]21,147
  101. 1121 [151]54296,15:[151]54275,0:[151]54274,255:[151]54277,13:[151]54278,0
  102. 1122 [151]54273,a(1):[151]54272,b(1):[151]54276,65
  103. 1125 [129]x[178]1[164]1100:[130]:[153]"cmd ^";:[151]v[170]9,214:[151]54273,a(2):[151]54272,b(2)
  104. 1126 [151]54276,64:[151]54276,65
  105. 1130 [129]y[178]1[164]19:[129]x[178]1[164]1100:[130]:[153]"cmd  ^";:[151]v[170]9,[194](v[170]9)[171]4
  106. 1131 [151]54273,a(y[170]2):[151]54272,b(y[170]2):[151]54276,64:[151]54276,65:[130]
  107. 1132 [129]x[178]1[164]1000:[130]:[151]54276,64
  108. 1135 [141]4300:[151]v[170]21,131
  109. 1140 [153]"   the music alphabet is from await to gwait.":[141]4300
  110. 1145 [153]"  after g it repeats, starting with a."
  111. 1150 [153][163]6)"(a b c d e f g a b c . . .)
  112. 1155 gosub4300
  113. 1160 print"[158] every line and space has a letter name"
  114. 1170 printtab(8)"from the music alphabet"
  115. 1175 poke214,20:print:printtab(15)"g[145]b[145]d[145]f[145]a[145]c[145]e[145]g[145]b[145]d[145]f"
  116. 1180 pokev+8,210:pokev+9,160
  117. 1185 poke2044,201:pokev+43,0:pokev+44,11:pokev+45,0:pokev+21,223
  118. 1190 gosub4300:pokev+21,255
  119. 1195 print"[145][145][154]ga[194]b[194]c[194]d[194]e[194]f[194]g[194]a[194]b[194] [153][194]d[194]e[194]f[194]g[194]a[194]b[194]c[194]d[194]e[194]f"
  120. 1200 print"[145][158]      the names of the piano keys"
  121. 1205 print"      match the names on the staff"
  122. 1210 gosub4300
  123. 1215 print"    to help learn the names of the"
  124. 1220 print"      lines and spaces, remember:":gosub4300
  125. 1225 printspc(6)"treble clef spaces, the word:"
  126. 1230 printtab(16)"[153]face[146]"
  127. 1240 gosub4300
  128. 1245 print"    treble clef lines, the sentence:"
  129. 1250 print"     [153]e[146]very g[146]ood b[146]oy d[146]eserves f[146]udge"
  130. 1260 gosub4300
  131. 1265 print"    bass clef spaces, the sentence:"
  132. 1270 printtab(11)"[154]a[146]ll c[146]ows e[146]at g[146]rass"
  133. 1280 gosub4300
  134. 1285 print"     bass clef lines, the sentence:"
  135. 1290 print"      [154]g[146]reat b[146]ig d[146]ogs f[146]ight a[146]nimals"
  136. 1295 gosub4300
  137. 1300 print"    the note c in the middle of the"
  138. 1305 print"   piano keyboard is called middle[146] c[146].
  139. 1310 [151]214,20:[153]:[153][163]15)"contlenonlenonlenonlenonlenononprintlenonlenonlenonlenonlen"
  140. 1315 [151]v[170]21,163
  141. 1320 [151]214,5:[153]:[153]"oncont(NULL) (NULL)close(NULL)close(NULL)close(NULL)close(NULL)close(NULL)close(NULL)close(NULL)close(NULL)printclose(NULL)close(NULL)close(NULL) (NULL)close(NULL)close(NULL)close(NULL)close(NULL)close(NULL)close(NULL)close"
  142. 1325 [141]4300
  143. 1330 [153]"sys  on the grand staff, middle c is on a"
  144. 1335 [153]"   special line called a ledgerwait linewait"
  145. 1340 [141]4300:[151]v[170]21,0:[137]900
  146. 2000 [137]2000
  147. 3000 [143] read joystick
  148. 3010 [129]t[178]1[164]80:[130]:jv[178][194](56320):fr[178]jv[175]16:jv[178]15[171](jv[175]15):[142]
  149. 4000 [142]:[143] help
  150. 4200 [143] range selection
  151. 4205 [139]l1[178]0[167]n$[178]"input"
  152. 4210 [151]214,22:[153]:[139]n$[179][177]"input"[167]4220
  153. 4215 l1[178]11:l2[178]11:[153]"  f1-printtreblewait  f3-contbass  f5-printgrand contstaff":[142]
  154. 4220 [139]n$[179][177]"dim"[167]4230
  155. 4225 l1[178]11:l2[178]1:[153]"  f1-printtreblewait  f3-contbasswait  f5-printgrand contstaff":[142]
  156. 4230 l1[178]21:l2[178]1:[153]"  f1-printtreblewait  f3-contbass  f5-printgrandwait contstaffwait":[142]
  157. 4250 [143] clear and position cursor
  158. 4255 [151]214,6:[153]:[129]x[178]1[164]12:[153]"             ";:[130]
  159. 4260 [151]214,22:[153]:[153][163]7)"                          "
  160. 4270 [151]214,6:[153]:[153]"";:[142]
  161. 4300 [143] instruction continue
  162. 4310 [151]214,22:[153]:[153][163]7)"stoppress any key to continue.sys"
  163. 4320 [161]a$:[139]a$[178]""[137]4320
  164. 4330 [141]4250:[142]
  165. 4500 [143] correct answer
  166. 4505 [151]54275,10:[151]54274,0:[151]v[170]21,[194](v[170]21)[176]64
  167. 4510 [151]54296,15:[151]54273,a(ni):[151]54272,b(ni):[151]54277,15:[151]54278,0
  168. 4515 [151]54275,10:[151]54274,0:[151]v[170]21,[194](v[170]21)[176]64
  169. 4520 [151]54276,65:[129]x[178]1[164]750:[130]:[151]54276,64:[151]54296,0
  170. 4525 [151]v[170]21,[194](v[170]21)[175]191:[142]
  171. 4600 [143] wrong answer
  172. 4610 [151]54296,15:[151]54277,45:[151]54278,165:[151]54276,65:[151]54273,1
  173. 4615 [151]54272,195:[151]54275,5:[151]54274,120
  174. 4620 [129]x[178]1[164]300:[130]:[151]54276,32:[151]54273,0:[151]54272,0:[142]
  175. 5000 [143] treble clef
  176. 5010 [131],12,,,10,,,10,,,10,,,12,,,24,,,56,,,104,,,200,,1,136,,3,62,,6,75,0
  177. 5020 [131]12,137,128,12,200,192,12,8,192,6,8,192,3,137,128,,255,,,8,,,40,,,56,0
  178. 5025 [143] bass clef
  179. 5030 [131]31,,,96,195,,192,99,,240,48,,112,48,,,51,,,51,,,96,,,192,,1,128,,3,,,12
  180. 5040 [131],,48,,,192,,,,,,,,,,,,,,,,,,,,,,,0
  181. 5045 [143] 4/4
  182. 5050 [131],1,192,,3,192,,6,192,,12,192,,31,224,,,192,,1,224,,,,0
  183. 5060 [131]1,192,,3,192,,6,192,,12,192,,31,224,,,192,,1,224,,,,0
  184. 5070 [131],,,,,,,,,,,,,0
  185. 5075 [143] ace
  186. 5080 [131],,,,,248,,,192,,,192,,,252,,,,,120,,,204,,,192,,,192,,,192,,,204,0
  187. 5090 [131],120,,,,,48,,,120,,,204,,,252,,,204,,,204,,,204,,0
  188. 5100 [143] note body
  189. 5110 [131],,120,,,252,,1,254,,1,254,,1,254,,,252,,,120,0
  190. 5120 [131],,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,0
  191. 5125 [143] letter c
  192. 5130 [131]120,,,204,,,192,,,192,,,192,,,204,,,120,,0
  193. 5140 [131],,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,0
  194. 5145 [143] clown
  195. 5150 [131],16,,,84,,1,85,,5,85,64,62,170,240,254,34,252,62,154,240,10,154,128
  196. 5160 [131]9,169,128,8,84,128,9,1,128,1,85,,63,171,240,63,207,240,63,19,240,,16,,,,
  197. 5170 [131],,,,,,,,,,,0
  198. 5175 [143] middle c
  199. 5180 [131]255,240,,255,240,,255,240,,255,240,,255,240,,255,240,,255,240,,255,240
  200. 5185 [131]0
  201. 5190 [131]255,254,,255,254,,255,254,,255,254,,255,254,,255,254,,255,254,,255,254
  202. 5195 [131],,,,,,,,,,,,,,,0
  203. 5200 [143] egb
  204. 5210 [131],,,,,,,,248,,,204,,,204,,,248,,,204,,,204,,,248,,,,,120,,,204,,,192
  205. 5215 [131],,220,,,204,,,204,,,120,,,,,252,,,192,,,192,,0
  206. 5220 [143] dfa
  207. 5225 [131],,204,,,252,,,204,,,204,,,204,,,,,252,,,192,,,192,,,248,,,192,,,192
  208. 5230 [131],,192,,,,,240,,,216,,,204,,,204,,,204,,,216,,,240,,0
  209. 5235 [143] ace
  210. 5240 [131],,,,,,,,,,3,240,,3,,,3,,,3,224,,3,,,3,,,3,240,,,,1,224,,3,48,,3,,,3
  211. 5245 [131],,3,,,3,48,,1,224,,,,,96,,,240,,0
  212. 6000 [143] note values
  213. 6010 [131]12,143,14,24,15,210,16,195,18,209,21,31,22,96,25,30,28,49,31,165,33,135
  214. 6020 [131]37,162,42,62,44,193,50,60,56,99,63,75,67,15,75,69,84,125,89,131
  215.